home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1016_Custom < prev    next >
Encoding:
Text File  |  1990-03-23  |  481 b   |  28 lines
  1. %case uses%
  2. %case instance%
  3.     %itemname%:%    %CButton;
  4. %case create%
  5.     
  6.     New (%itemname%);
  7.     %itemname%.IButton (%cntlID%, enclosure, supervisor);
  8. %case itemNr%
  9.     %DefineItem%
  10. %case dialog field%
  11.     %fieldname%:%    %longint;
  12.     %Enable?%
  13.     %haveField%
  14. %case init field%
  15.     %fieldname% := 0;
  16.     %Enable?%
  17. %case auxiliary%
  18. %case filter%
  19. %case set%
  20.     SetControl (%itemname%, %fieldname%);
  21. %case enable%
  22.     %Enable?%
  23. %case hit%
  24.     %itemname%: begin
  25.         %fieldname% := GetControl (itemNr);
  26.     end;
  27. %case finish%
  28.